﻿Public Class clsGtPgdMes
    Public Function getFlbList(sys_id As String) As DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT b.material_code,b.mst_value,b.count_down,b.count_up FROM sf.b_gt_pgd_mes a "
        szSql &= "left join sf.t_mst_flb b on a.material_code = b.material_code "
        szSql &= "WHERE 1 = 1 and a.sys_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, sys_id)
    End Function

    Public Function getGjbList(sys_id As String) As DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT a.note,a.type_value,b.gjb_layer_num FROM sf.b_gt_pgd_mes a "
        szSql &= "left join sf.t_prod_spec b on a.support_model = b.prod_spec_id "
        szSql &= "WHERE 1 = 1 and a.sys_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, sys_id)
    End Function

End Class
